CHIP 

An Interpretive Subroutine for 
Packed Floating Point Operands 
For the ERA 1103 Computer 



Programmed by: 
L. Pall 
P, Malone 



Programmers at Wright Field have felt the need for a compact floating 
point interpretive coding system. This interpretive system should include 
basic floating point arithmetic, elementary transcendental functions and 
floating decimal Flex-coded print or punch output. 

A more convenient packed floating number definition is desirable. 
Consequently, the packed floating number definition of the 1103AE was choserw 

A floating point "Chip" number N must satisfy one of the following 
conditions s 

1) N « 

2) 2- 12 ?Z |n|<2 12 7 

The floating point word structure has the following form: 
IB 27 



s 


c 


M 



where S - U35 ~ sign 

C " u 34 " — ^27 - characteristic 

M - U26 U - mantissa 

S and M denote the l's complement representation of x,2 ', while C is the 
representation of /"y 4- 12&J scaled 27 or when S = 1, C is the l's complement 
form of fj 4- 128_7 scaled 27. 

For N - 0, S - C e M = all 0>s, or all l's. 

For 2~ 129 - N<2 ^, N is represented in the form x.2 3 ^ where \ - x<l 
and -128 - y ^ 127. Then, S * 0, M = x (scaled 27), and C-/"yt 128_7 
(scaled 27). 



For -2 12? < N ~ -2' 



•129 



N is represented by the one's complement of N I • 



w 



00 Repeat J.J n 

01 R + u« > R, A, Q 

02 R . u' 

03 R • u* 



-» R, A, Q 

-> R, A, Q 



0U t u' > R, A 

R«u« — > R, A 
»• — > R, A 



05 R t 

06 u» «i- R«u 
+ u») • R->R, A 



07 (R 

10 Repeat jj n I 

— > R, A 



11 u» ♦ v 

12 u « - v 

13 u» • v 

14 u 1 -t- v 

15 R +u 



-> R, A, Q 

-> R, A, Q 

A, Q 

A, Q 

A, C 

A, C 



— * R, 
v»-> R, 



Q 
Q 
Q 
Q 
w 



Q 



16 u' + R • v» -* R, 

17 (u« + v«) • R-*R, 

20 Repeat jj_ _n I w _ 

21 R f u«->v», R, A. 

22 R - u«->v«, R, A. 

23 R • u«-*v«, R, A. 

24 E t ui->v«, R, A. 

25 R t Ru»^v«, R, A. 

26 u» + R«u«-»v', R, A. 

27 (R + u») • R-»v», R, A. 



30 


Repeat 


A; 

1 


n 


w 


31 


U* f V 1 




■ V, 


R, A. 


32 


U« - V' 


-> 


v f , 


R, A. 


33 


u 1 • V 1 




v ! , 


R, A. 


34 


u' -=- V 1 




► V 1 , 


R, A. 


35 


R f u« • 


V l. 


-»v« 


, R, A. 


36 


U 1 ♦ R'V 1 




iv' fc R V A. 


37 


(u» + v«) 


• R-»v', 


R, A. 


40 


#cos u 1 




v f , 


R, A. 


41 


**sin u 1 




V 1 , 


R, A. 


42 


Vu 7 " 


— > 


V 1 , 


R, A. 


43 


e u ' - 


— > 


V 1 , 


R, A. 


44 


In u» 


— > 


V 1 , 


R, A # 


45 


*tan -- 1 u«: 


-<— » 


V 1 , 


:iR/'A.= 



46 Print u 1 (car ret if v f - o) 

47 Punch u» (car ret if v» = o) 



^Radians 



The CHIP instructions are in the following form: 



14. 



OP 



in which OP is a two-octal-digit pseudo-code and u 1 and v* are four-octal-digit 
address references, 14 occupies ^5^ . . • u^qj OP occupies U29 • ♦ • u^. 
u* occupies U23 . • • ui25 and v 1 occupies U;q • . • u 0# Because of the 
four-octal-digit limit on address references, operands must be located in HSS 
(High-speed storage). 

HSS address 00005 is designated as R. After every interpretive instruction 
the normalized, rounded, packed result is left in R and the double extension of 
R is left in A. 

The repeat order ,00, functions in a manner analogous to regular 1103 



00 



J ! n 



w , j occupying 



operation. It is coded in the form: 14 
u*23* U22> U21. W denotes the address from which the next instruction will be 
taken after the termination of the repeat. Repeat orders, 10, 20, 30, operate 
in exactly the same way as above . 

It should be noted that addresses 00003 thru 00016 are used as temporary 
storage. Using 00005 as a u 1 or v 1 address will yield the correct result 
except in the following cases: 

14 06 0005 gives 2R 2 

14 16 0005 v* » 2Rv» 

14 26 0005 v» » 2R 2 

14 36 0005 v« » 2Rv« 

The alarm exit of 'Chip" is at 00002. The following "Chip" alarm entry has 
been added to the alarm print routini (CV-3) which places the packed operands 



1 


31 


00015 


2 


27 


20000 


3 


16 


00000 


4 


45 


00000 



of the current instruction in A^ and A r t 
75750 37 00224 00224 

00044 
00016 
75700 
75701 

For those operations involving only one operand, the contents of u 1 will 
be placed in Ar when an alarm occurs. If an alarm occurs during a repeated 
instruction at address y, the address printed out will be (W-l) which may or 
may not be /• 

An alarm will occur if the result of an interpretive operation exceeds 
the limits of the "Chip" number definition. This means that a result too 
small in absolute magnitude will also give an alarm. By changing address 
00213 from the 46 00002 00216 to 46 00214 00216 all results such that 



< Result 



< 2~ 12 ^ win be replaced by zero without an alarm. 



Furthermore, an alarm occurs when a division by zero or by an unnormalized 

number is attempted; when the square root of a negative number is attempted; 

18 
if the absolute value of the argument in the sine-cosine routine exeeeds 2 *, 

u * IS 127 

if the argument in e is less than -2 or greater than In 2 '; or if in the 
logarithm routine, the argument is equal to or less than zero# 



CODE 



FUNCTION 



LIMITS 



TIME 



INTERVAL TESTED 



ERROR 



METHOD 



40, 41 * Cosine, Sine | u» ) < 2 1B 7.8ms 

42 Square Root - u»<2 " 7.5ms 

IS 127 

43 Exponential -2 <.u«<ln2 ' 14.9ms 

44 Natural Log O < u«<2 127 7 # lms 

45 * Arc Tangent |u«/<2 127 8.0ms 

* Radians 



0(.05) 20 

0(100) 12,500 

-2.5 (.02)2.5 
-77(D 77 
.02(.02) 5.0 



-20(d) 20 



|E maxj-c 10~ 7 

|Er/< 2~ 27 

/Er/< 2~ 27 
(Er/< 2~ 2 ? 
|E maxf<irr 7 

| E max|<10~ 7 



Rand Poly - Sheet 16 

Newton 

Power Series 

^and Poly - Sheet 56 

Rand Poly - Sheet 13 



Where E max is maximum error 

Er is maximum relative error 



Average 

Times for Other Orders 



X 1 

X 2 

X 3 

X 4 

X 5 

X 6 

X 7 

4 6 
47 



Addition 
Subtraction 
Multiplication 
Division 

Multiple Orders 

Print 
Punch 



3.2 ms. 

3.3 ms. 
3.1 ms. 
3.6 ms. 
5.1 ms. 
5.1 ms. 
5.1 ms. 
2 sec /word 

.27 sec /word 



Printed or Punched Output - Use of the print (46) or punch (47) order a 
causes the packed floating point number at address u to be printed or 
punched in floating decimal form. The format for suoh a number contains 
fourteen characters in the form* 

"SpX • XXXXXXXspYYSP 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 

Characters 1 thru 10 print out the deeimal aan&lsaa and characters 11 thru 
13 print out the power of ten by which the mantissa is to be multiplied* 
Every such number is followed by a space* 

There is also the option available to the programmer for a carriage 
return before printing or punching* This is accomplished by putting zero'i 
in the v portion of the print or punch order. Used with a repeat order 
which has j=3, it is possible to print or punch several numbers in con- 
secutive storage addresses on one line using two lines of coding* 

B 14 0C 3 QQ5 B+2 
B+l 14 47 ?P0 Q000 
B-Ki conti auance of program 

Using tnese orders, * programmer has at his disposal a wide variety of 

possible formats for output* 

It should be noted that "Chip" is not a standard subroutine* The 
entries* temporary storage* constant pool* basic arithmetic, and function 
routines occupy in that order the first 7003 IBS addresses-. 

While the choice of pseudo-codes available in the interpretive 
repertoire is perhaps not as complete as some might desire, it is felt 
that considerable programming flexibility is achieved while compactness 
is retained* 



00000 


U5 00000( 50000 ) 


Normal Exit 


00001 


45 ooooo ooioo 


Entry 


00002 


45 ooooo 75750 


Ala nn Exit 


oooo3 
oooo4 


00 ooooo ooooo 
00 ooooo ooooo 


Mantissa of U Operand 

TMPORAHT STORAGE 
Characteristic of U Operand 


00005 


00 ooooo ooooo 


Ctrbp Accumulator *R»" alsa Mftnti fiaa o£ T Operand 


00006 


00 ooooo ooooo 


Characteristic of V Operand 


oooot 


00 ooooo ooooo 


Ul Address Stored in U-Portion 


00010 


00 ooooo ooooo 


V 1 Address Stored in U 8c V -Portions 


00011 


00 ooooo ooooo 


Repeat Counter 


00012 


00 ooooo ooooo 


j Counter 


00013 


00 ooooo ooooo 


Temporary Storage for R 


00014 


00 ooooo ooooo 


Current Instruction 


00015 


00 OOOOO' ooooo 


Packed U- Operand 


00016 


00 ooooo ooooo 


Packed V -Operand 


00017 

00020 


00 0*4000 ooooo 
20 14000 ooooo 


•5 Scaled 27 

CHIP CONSTANTS 
Chip 1 


00021 


02 ooooo ooooo 


1 Scaled 31 


00022 


13 05620 57737 


In 2 Scaled 34 


00023 


54 00005 24110 


Scaling Constant 


00024 


oo ooooo 00030 


24io 


00025 


14 4417 "3 65211 


Tt Scaled 32 


00026 


06 22077 32504 


1T/2 Scaled 32 


00027 


00 ooooo 00100 


6i *10 



ooo^o 


00 00000 


(30000) 


Scale 


1 Factor Storage 




OOOJl 


00 00000 


00200 


128 1C 


) 




00032 


00 00000 


00223 


Wic 


1 




00033 


1+0 07777 77777 


Manti 


ssa Mask 




0003^ 


37 70000 


00000 


Characteristic Mask 




00035 
00036 


00 00000 


00777 
00206 


Three 






00 00000 


^K 


) 




00037 


00 00000 


000^5 


3^o 






000^0 


00 00000 


00000 


Zero 


CONSTANT POOL 




00041 


00 00000 


00002 


2 and 


L "Color Shift" 




00042 


61 00000 


000^5 • 


Print 


and "Car. Return 1 ' 




000^3 


00 00000 


00003 


3 






OOOMf 


00 00000 


0000i+ 


k 






000^5 


00 00000 


00037 


Flex 


Code 




000^6 


00 00000 


00052 


Flex 


Code 1 




000^7 


00 00000 


OOO'jk 


Flex 


Code 2 




00050 


00 00000 


00070 


Flex 


Code 3 




00051 


00 00000 


OOOoif 


Flex 


Code 4 




00052 


00 00000 


00062 


Flex 


Code 5 




00053 


00 00000 


00066 


Flex 


Code 6 




- ooo5 J + 


00 00000 


00072 


Flex 


Code 7 




00055 


00 00000 


00060 


Flex 


Code 8 




00056 


00 00000 


00033 


Flex 


Code 9 




00057 


00 00000 


00013 


llin 







8 



ooo6o 


00 


00000 00012 


10 10 


00061 


00 


00000 00056 


R H 


00062 


31 10375 52421 


Tj/if- Scaled 35 i fT/2 Scaled 34 


00063 


31 46314 63146 


0.1 1Q Scaled 38 


0006k 


00 


00000 00077 


Six-Bit Extractor 


00065 


21 


67643 24177 


Degrees to Radians Scaled 40 


00066 


20 


00000 00000 


.5 Scaled 33 


00067 


00 


00000 00007 


Octal Digit Extractor 


00.070 


37 77777 77777 


2 35-i 


00071 


00 


77777 00000 


U Extractor 


00072 


00 


00000 77777 


V Extractor 


00073 


00 


00001 00000 


U Advance 


0007^ 


00 


00000 00001 


V Advance 


00075 


00 


00001 00001 


U and V Advance 


00076 


00 


07777 07777 


Four-Octal Digit U and V Extractors 


00077 


00 


00000 00110 


? 2 10 


00100 


11 


ooo4o 00011 


Set Repeat Ctr. to Zero 

EXPANSION 


00101 


31 


00O0Q 00000 




00102 


34 00074 00017 




00103 


15 


20000 00104 




00104 


(11 (30000) 10000) 


Transmit Current Instruction to Q 


00105 


11 


10000 00014 


Store Current Instruction in 00014 


00106 


51 


00076 00010 


Extract V 1 


00107 


31 


pnono 000.17 





00110 


. 15 20000 oooio • 


T l . £5 


♦ v 1 Stored in 00010 


00111 


55 io.ooo 00003 






00112 


51 00076 00007 


u i . 2 i5 


Stored in U-Portion of 00007 


00113 


55 oooi4 looo6 


Shift Current Instruction Six Places in Q 


00114 


16 00010 .00225 


Set up: 


Store Result at v 


00115 


15 00117 00147 


Set up* 


R as U Operand 


00116 


15 00007 00157 


Set up: 


u as V Operand 


00117 


11 00005 00013 


Store Previous Result in 00013 


00120 


44 00135 00121 


Test PCc 


PC =» Pseudo-Code 


00121 


44 00123 00122 


Test PCk 




00122 


16 00104 00225 


Set up: 


Store Result at Q 


00123 
00124 


44 00124 00126 

15 00007 oc 147 


Test PC- 
Set up: 


DECODING 
u as U Operand 


00125 


15 oooio oc.157 


Set up: 


v as V Operand 


00126 


44 00132 00127 


Test PC 2 




00127 


44 00131 00130 


Test PC X 




00130 


44 00261 00237 


XI XO 


Entries for X = 0, 1, 2, 3. 


00131 


44 00147 00256 


X3 X2 




00132 


44 OOI34 00133 


Test PC X 




00133 


44 00307 00246 


X5 X4 


Entries for X = 0. 1, 2, 3. 


00134 


44 00317 00313 


X7 X6 




00135 


37 OOI67 00157 


Unpack for Functions 


00136 


11 00016 20000 


Contents 


of u* into A 


00137 


55 00014 10007 


Shift Current Instruction Seven Places in Q, 



10 



oolHo 


kh 


00002 001)1-1 


001U 


kk 


00002 001>+2 


001**2 


kk 


001^5 OOllf-25 


OOllfJ) 


kk 


001^4- OO5I+3 


OOlU'i- 


kh 


00^22 OO323 


001^5 


kh 


00557 001^6 


001U6 


kk 


00505 oo!+53 


00147 


11 


(30000)00015 


00150 


11 


00015 10000 


00151 


51 


00033 00003 


00152 


51 


0003)+ 0000H 


00153 


kk 


0015}+ 00156 


0015)1- 


07 


00003 0003)1 


00155 


27 


0000H 0003^ 


0015') 


y? 


0000U 00011 


00157 


iii 


(30000)00016 


00160 


11 


00016 10000 


00161 


51 


OOO35 00003 


00162 


51 


0003!+ 00006 


001:3 


kk 


001 'M- 00166 


VM'h 


0"7 

.... j 


00005 0005)1. 


OM'5 


0-7 


O0006 0005)1. 


001' 


00 


•-0 >,6 Oo)ll 


001 ',7 


yj 


00107 (-170) 



Alarm for Undefined Pseudo-Codes 

Alarm for Undefined Pseudo-Codes 

Test PC 2 

Sine -Cosine Entry 

En&jQp. &« Exponential or Square* Jtov* 

Print/Punch Entry 

Entry for Arc Tan or Logaritm 



Store U Operand 

Store U Mantissa 
Store U Characteristic 



UNPACK 



Store V Operand 

Store V Mantissa 
Store V Characteristic 



00170 


21 


oooo6 oooo4 


00171 


36 


00032 OOOOo 


00172 


71 00003 00005 


00173 


47 00174 00220 


00174 


ll 00031 00005 


00175 


46 00176 00177 


00176 


15 00031 00005 


00177 


74 


20000 00030 


00200 


11 


20000 10000 


00201 


21 


10000 00005 


00202 


43 


10000 00205 


00203 


21 


00006 00074 


00204 


55 00005 10033 


00205 


54 


10000 00100 


00206 


11 


00030 20000 


00207 


42 


00037 00211 


00210 


36 


00077 20000 


00211 


35 


00006 20000 


00212 


54 


20000 00033 


00213 


46 


00002 00216 


00214 


11 


00040 20000 


00215 


45 


00000 00220 


00216 


42 


00070 00221 


00217 


45 


00000 00002 



MULTIPLICATION 



NORMALIZE . ROUND . PACK 



NOTE 



: (00002) Is Alarm Exit for 
< I Result I < 2 . 9 (00214) 
By Zero With No Alarm. 



Replaces 



Alarm, Characteristic Too Large 



12 



00220 11 20000 10000 

00221 52 00033 00005 

00222 kk 00223 0022*4- 

00223 27 00005 0003'l- 
00221+ 37 0022*+ (30225) 



00225 
00226 
00227 
00230 



11 20000 (50000) 

1+1 00011 00231 

11 00005 20000 

1+ 5 00000 00000 



Store Result 
Repeat Instruction? 
Result to A 
Jump to Exit 



TERMINATION 



00231 55 00012 10001 j to Q 

00232 . 1+1+ 00233 0023*1 

00233 21 00007 00075 Advance u ] 
O023I+ kk 00235 00236 

00235 21 00010 OOO75 Advance v j 

00236 1+5 00000 00113 



REPEAT MODIFICATION 



00237 11 10000 00012 

0021+0 16 00010 00000 

0021+1 21 ooioij- 00073 

002ii-2 55 00011+ 10030 

0021+3 51 00035 00011 

002'+!+ 1+1 00011 0010H 

0021+5 1+5 00000 00227 



Store j 

v to V-Portion of F x 



SET UP REPEAT 



Store n in 00011 

Store n - 1 in 00011; Jump to Next Instruction 

Exit if n = 



0021+6 37 00167 0011+7 

0021+7 12 00005 20000 



Unpack 



DIVIDE 



13 



00250 l<-2 00017 00002 

00251 23 oooo^ oooo.;; 

00252 55 00056 oooo6 

00253 5 ! <- 00003 20035 
0025*4 73 00005 20000 
00255 145 00000 00173 



Alarm if Divisor Unnormalized or 2iero 



Jump to Pack 



00256 37 00167 001*47 

00257 13 00005 00005 
00260 I45 00000 00262 



Unpack 

Negate V Operand 

Jump to Add 



SUBTRACT 



00261 37 OOI67 001*47 

00262 11 0000*4 20000 

00263 36 00006 20000 
0026*4 *46 00275 2 "5 

00265 ^2 00037 C 271 

00266 11 0000*4 00006 

00267 5*4 00003 20010 

00270 I45 00000 00306 

00271 16 20000 00272 

00272 5*4 00003(30000) 

00273 35 00005 20000 
0027*4 *i-5 00000 00305 

00275 13 20000 20000 

00276 *42 00037 00301 

00277 5*+' 00005 20010 



Unpack 



ADD 



14 



00300 45 ooooo 00306 

00301 16 20000 00302 

00302 5k 00005 00000) 

00303 35 00003 20000 
0030)1 11 00004 00006 

00305 5^ 20000 20010 

00306 45 ooooo 00173 



Jump to Pack 



OO307 37 00224 00147 

00310 15 00312 00147 

00311 15 00164 00157 

00312 45 00013 00261 



U-V 



R ♦ u 1 • v 1 or 



Set up: Previbus Result as U R ♦ R • u 
Set up: R as V 
Jump to Add 



00313 15 00312 00147 

00314 37 00224 00147 

00315 15 00007 00147 

00316 45 ooooo 00311 



Set up: Previous Result as U 1 

ur * 



Set up: u* as U 
Jump to (U ♦ R) 



OO317 37 00224 00261 

00320 15 00164 0014? 

00321 15 00312 00157 

00322 45 ooooo 00147 



U ♦ V 

Set up: R as U 

Set up: Previous Result as V 

Jump to Multiply 



(u 1 ♦ v 1 ) . R 
(R ♦ u 1 ) . R 



00323 46 00002 00324 

00324 47 00325 00173 

00325 31 oooo'': 00107 
0^326 46 00327 00530 
00527 55 00005 00001 



Alarm if Argument Negative 
If Zero, Jump to Exit 



V~? 



15 



00330 
00331 
00332 
00333 
00334 
00335 
00336 

00337 
00340 
00341 
00342 



35 00027 
11 00066 
11 10000 

31 00005 
73 00003 

32 00003 
11 20000 
23 20000 
47 00332 
31 10000 
45 00000 



00006 
10000 
00003 
00051 

20000 

00107 

10000 

00003 
00341 

00001 

00173 



Jump to Pack 



OO3I+3 
00344 

00345 
00346 

00347 
00350 
00331 
00352 

00353 
00354 

00355 

OO356 

00357 



11 00040 

44 00346 
11 00026 
23 00006 
46 00350 

35 00055 
46 00352 
11 00040 

36 00024 

35 00023 

(00 00000 

4** 00357 

11 20000 



00003 

00545 
00003 
00032 

00002 
20000 
00353 
00005 
10000 

00355 

oooooX 

00360 

Uuuu 



Store Zero in 00003 for Sine 



Test PC, 



Store tT/2 in 00003 for Cosine 



Alarm if|u X k 2 18 = 262,144- 



SINE-C0SI, 



Replace u* By Zero 



tt 1 lot© A Scaled 32 



Zero Into A L if IT Scaled "Down* 



16 



00360 


35 00003 20000 




00361 


73 00062 10000 


£ A a < 21T Scaled 32 


00362 


11 00066 00003 


Store Sign in 00003 


OO363 


42 00026 OO367 




00364 


36 00025 20000 




00365 


55 00003 00001 


Shift Sign 


OO366 


45 00420 OO363 




OO367 


54 20000 00042 




OO370 


73 00026 00005 


X Into 00005 Scaled % 


00371 


71 10000 10000 




00372 


54 20000 00046 




00373 


11 20000 00006 


x 2 Into 00006 Scaled 34 


OO37I+ 


11 00421 00004 


Cq Into ?£ 


00375 


15 00366 00401 


Set u Address of OO46I 


OO376 


11 00043 00013 


Set Index 


OO377 


71 00006 00004 


f.*t 


00400 


54 20000 00046 




00401 


35 Co4l^ 00004 


p i*i 


00402 


23 oo4oi 00073 




00403 


41 00013 00377 




00404 


71 00005 00004 


X . P 


00405 


54 20000 ooo46 




oo4o6 


11 20000 00005 


Store result In 0000 


00407 


11 00003 10000 





17 



00410 44 00411 00412 

00411 13 20000 00005 

00412 11 00031 OQOOo 

00413 54 00005 20001 
oo4i4 k5 00000 00173 

00415 31 10375 52202 

00416 65 521+20 76452 

00417 01 2ik6k 25731 

00420 77 73155 46346 

00421 00 00117 32757 



Examine Sign 



Jump to Pack 

Ci Rand Coemcfejrtnr Scalt* Jfc 

Co Rand Coefficients Scaled 34 
Cc Rand Coefficients Scaled 34 

Cj Rand Coefficients Scaled 34 
Cq Rand Coefficients Scaled 34 



00422 23 00006 00032 

00423 46 00424 00002 

00424 35 00055 20000 

00425 46 00426 oc 1-27 

00426 11 00040 00005 

00427 36 00451 10000 

00430 35 00023 00431 

00431 (00 00000 00000) 
001+32 44 00433 004.34 

00433 11 20000 20000 

00434 73 00022 OOvQo 

00435 11 20000 ;0005 

00436 11 oo45:j 00003 

00437 11 Q0021 00004 



EXPONENTIAL 



Alarm 



Zero to 00005 



u 1 Into A Scaled 34 

Zero to A L if u 1 Scaled "Down" 

x Into 5 

11 10 Into 00003 Scaled 31 

1 Into 00004 Scaled 31 



18 



ooMi-o 71 00005 0000*1- 

ocMi 73 00003 20000 

00H2 32 00066 00105 

00*4*43 11 20000 0000*4 

ookhk 23 00003 00021 

00*4*0 hf 00*4*40 00^-^6 

00^+3+6 21 00006 00031 

00*1*47 31 0000*1 0000'+ 

00H50 *45 00000 00173 

00*451 00 00000 00026 

00**52 26 00000 00000 



x . Pi 



p i 4 1 Int0 ° 000 ^ Scaled 3 1 



Characteristic Into 00006 
e x Into A Scaled 35 
Go to Pack 

22io 

11 10 Scaled 31 



00*453 
00*45*+ 
00455 
00*06 

00457 
00*160 
00461 
00462 
00*1-63 
00464 
00*|65 
00466 



23 00006 
54 00005 
36 00066 
46 00002 
11 OOO67 
15 0^72 
11 00504 
p7l" 00005 
5'i 200^0 

35 3047*4 
(23 00*1 o ( 

4i 00003 
71 00000 



00*173 



20010 
00005 
00457 
00003 
00404 
0000*1- 
oooo*+ 

00046 

0^00*+ 

00*! '. >2 



P - 1 

2% Into A Scaled 34 

2q-l Into 00005 

Alarm 

Set Index Equal Seven 

Set u Address of OO464 

ag Into P^ 

x . Pi 

p i ♦ 1 



LOG, 



(p - 1) • In 2 
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00470 55 00004 20000 

00471 11 00473 00006 

00472 45 00503 OOI73 

00473 00 00000 00201 

00474 00 00000 00000 

00475 17 7777*5 10003 

00476 70 00101 77550 

00477 05 23606 17663 

00500 74 II372 H627 

00501 02 53533 01102 

00502 76 36303 71+363 

00503 00 44750 60721 

00504 77 71310 36772 



In u 1 Into A Scaled 34 

Go to Pack 

a Q Scaled 34 

a 1 Scaled 34 

&2 Scaled 34 

Bo Scaled 34 

a^ Scaled 34 

ac Scaled 34 

a^ Scaled 34 

ay Scaled 34 

ag Scaled 34 



00505 11 00040 00003 

00506 23 00006 00031 

00507 42 00074 00516 

00510 33 00066 00024 

00511 73 00005 00005 

00512 13 00006 00006 

00513 11 00062 00003 

00514 44 00516 00515 

00515 13 00062 00003 

00516 21 00006 00037 

00517 46 00520 00521 



Zero Into OOO03 



Char, of u - 200 



ARCTAN 



8 



Negative Reciprocal 



n/2 Scaled 34 Into 00003 



-fT/2 Scaled 34 Into 00003 
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00520 
00521 
00522 
00523 
0052*+ 
00525 
00526 
00527 
00530 
00531 
00532 
00533 
0053^ 
00535 
00536 

00537 
005^0 

005*11 
005^2 

005^3 
005^ 

005^5 

005^6 

00547 



11 OOOlfO 

35 00546 
(00 00000 
11 20000 
71 00005 
51*- 20000 
11 20000 
11 0051*5 
11 00547 
15 005^4 
171 00006 
51* 20000 
(35 30556 
21 0053^ 
4i 00013 
71 00005 
54 20000 
35 00003 
51* 00005 
11 00031 
45 00550 
00 00000 
5>i- 00005 
77 73 r >62 



00005 
00522 
00000) 
00005 
10000 
00046 
00006 
00013 
00004 

00534 

00004 

00046 

00004) 

00073 

00532J 

00004 

00046 

00005 

20001 

00006 
00173 

00006 
21+052 
1+0305 



Replace u 1 by Zero 

u 1 or -1/u 1 Scaled 34 Into A 
x Into 00005 Scaled % 



x 2 Into 00006 Scaled 34 
Set Index Equal Six 
C^c Into P A 

Set U Address of 00534 
x 2 . P 4 



p i ♦ 1 



x • P4 



tan 4 u 1 Into A Scaled 35 



Go to Pack 



C^ Scaled 34 
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00550 


oo 26505 ^5073 


Cjo Scaled 34 


00551 


77 06577 07^16 


Qjj ScaXed. 34 


00552 


01 1+2567 676to 


Cq Scaled 34 


00555 


75 6X14-U7 161+51 


Cj Scaled 34 


0055^ 


05 IteOX 22666 


Cc Scaled 34 


00555 


72 525I47 ^072 


Co Scaled 34 


00556 


17 77777 51^73 


C x Scaled 34 


00557 
00560 


11 000I42 00676 
141+00561 00562 


Set Up Print 

PRINT /PUNCH 
Print or Punch? 


00561 


21 00676 00021 


Set up Punch 


00562 


11 00676 00565 


Set up Print or Punch at OO565 


00565 


16 0056I4 00565 


Set up Print or Punch Q 


005614- 


11 00670 1 000 


"Shift Down" Into Q 


00565 


(00 00000 c 000) 


Print/Punch Q 


00566 


37 00566 (00567) 




00567 


11 00010 20000 


r 1 Into A 


00570 


I47 0057*+ 00572 


If A Zero, Print /Punch Carriage Return 


00571 


00 00000 00000 


Not Used 


00572 


11 0001+2 10000 


"Carriage Return" Into Q 


00573 


57 00566 00565 


Print /Punch Car. Ret. 


0057^ 


11 00016 20000 


u 1 Into A 


00575 


11 000I4I4 10000 


■Space" Into Q 


00576 


I46 00577 00600 




00577 


11 00061 10000 


"_" Into Q 
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OOoOO 


57 00566 


00565 


00601 


37 00601 


(00602) 


00602 


47 00605 


00603 


00605 


16 00667 0061+3 


.OO60I+ 


1+5 00000 


00626 


00605 


12 00016 


00005 


00606 


15 00161+ 0011+7 


00607 


15 00613 00157 


00610 


11 oooi+o 


00677 


00611 


rn 00005 


20000 


00612 


1+2 00020 


00617 


00613 


1+2 OO67I 


00622 


00611+ 


37 00221+ 


002U6 


00615 


21 00677 


OOO7I+ 


00616 


1+5 00000 


00611 1 


00617 


37 00221+ 


0011+7 


00620 


23 . OO677 


00071+ 


00621 


1+5 00000 


006II 


00622 


37 00167 


ooi!+7 


00623 


23 00001+ 


00 /~(2 


OdCZk 


16 20000 


00625 


00625 


51+ 00005 


f;o:r ; ) 


00626 


11 ooo'+o 


00005 


00627 


H5 ooo^o 


00 ':<2 



Print /Punch "Space" or "_■ 



u 1 Equal Zero; Set up Spaces 

Magnitude of u 1 Into 00005 

Set up 00005 as U 

Set up OO671 as V 

Zero Into OO677 

N(Packed) Into A 

If 1> N, Go to 00617 

If N< 10, Go to 00622 

Divide by Ten 

Adjust Decimal Exponent 

Multiply by Ten 

Adjust Decimal Exponent 

Unpack Normalized N 



N Into A Scaled 36 
Set Index to Zero 
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00630 


11 00673 00005 


Set Index to Six 


00631 


71 00003 00674 


F . 10 10 Into A 


00632 


11 20000 00003 


Fraction Into 00003 Scaled 36 


00633 


55 00003 00043 


Fraction Into 00003 Scaled 35 


00634 


34 20000 00044 




00635 


35 00676 00636 




00636 


(oo 00000 00000) 


Print/Punch Decimal Digit 


00637 


41 00005 00631 




00640 


37 00640 (00642) 




006U 


11 00675 10000 


••■ Into Q 


00642 


37 00566 00565 


Print /Punch ".• 


00643 


37 00643 (oo644) 


Optional Exit for N ■ 


00644 


37 00640 00630 


Translate » Print/Punch Seven More Di 


00645 


11 00677 20000 


Decimal Exponent Into A 


00646 


37 00601 00575 


Print /Punch •Space" or ■_■ 


00647 


12 00677 20000 


Magnitude of Exponent Into A 


00650 


47 00651 00663 




00651 


73 00060 10000 


Translate Exponent 


00652 


11 20000 00003 




00653 


11 10000 20000 




00654 


37 00640 00635 


Print/Punch First Digit of Exponent 


00655 


11 00003 20000 




00656 


37 00640 OO635 


Print/Punch Last Digit of Exponent 


00657 


11 00044 10000 


"Space" Into Q 
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00660 
00661 
00662 
OO663 
00664 
OO665 
00666 
OO667 
OO670 
OO67I 
OO672 
OO673 
OO674 
OO675 
OO676 
OO677 



37 OO566 
41 00005 
45 00000 
11 00041 

45 00000 
11 00060 
45 00000 
00 00000 
00 00000 
20 45000 
00 00000 
00 00000 
00 00000 
00 00000 
(00 00000 
(00 00000 



00565 
00660 
00226 
00005 

00657 
00005 

00657 
00665 

00057 
00000 
00167 
00006 

00024 
00042 
00000) 
00000) 



Print/Puafitk Space 

Go to Termination 

Set Up Print/Punch Three Spaces 

Set Up Print /Punch Eleven Spaces 



Shift Down 
Chip 10. 



Print or Punch Temporary Storage 
Decimal Exponent Temporary Storage 
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